home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Variations / gen-symbol-ratio < prev    next >
Text File  |  1996-12-31  |  765b  |  16 lines
  1. gen-symbol-ratio seed l-of-ratios l-of-symbols
  2.  
  3. This function generates a list of symbols from a given list of symbols and a list of proportional ratios. The function can be used for melody symbols, note-lengths, zone-lengths or velocity values.
  4.  
  5. (gen-symbol-ratio nil '(2 6 4) '(a b c))
  6. --> (b c a b a c c c b b b b)
  7.  
  8. (gen-symbol-ratio 0.12 '(2 6 4) '(1/4 1/8 1/16))
  9. --> (1/8 1/16 1/4 1/8 1/16 1/16 1/16 1/8 1/8 1/8 1/8 1/4)
  10.  
  11. The symbols are organised in a random order but with a definable seed value controlling the random selection. Use with the function assemble to create chains of variants from a single symbol and ratio list:
  12.  
  13. (gen-collect 0.12 2 'list
  14.  '(gen-symbol-ratio nil '(2 6 4) '(a b c)))
  15. --> ((b a b b c c b a b c b c) (c b b c b b b a a b c c))
  16.